home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 37 / 037.d81 / grafix galore (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  119 lines
  1. 1 ifx>.then10
  2. 2 poke53280,.:poke53281,.
  3. 3 print"[147]"
  4. 4 print"             [199]rafix [199]alore"
  5. 5 print"            [204]oading [198]iles..."
  6. 10 ifx=0thenx=1:load"unpacker",8,1
  7. 20 ifx=1thenx=2:load"bload.o",8,1
  8. 30 :
  9. 40 bl=49152:unpack=51456:hg=51459
  10. 50 :
  11. 55 np=19:dim t$(np),a$(np),r$(np)
  12. 57 forx=1tonp:readt$(x),a$(x),r$(x):next
  13. 60 gosub 50060
  14. 70 forx=1tonp:gosub60000
  15. 80 print"[154]"
  16. 82 printspc(19-len(t$(x))/2)""t$(x)"[146]"
  17. 84 print""spc(19-len(a$(x))/2)""a$(x)"[146]"
  18. 90 sysbl,16384,r$(x)
  19. 92 :
  20. 94 ifpeek(198)<>0thengeta$:poke198,0:ifa$="q"ora$="[209]"thengosub10000
  21. 96 poke249,224:poke250,204
  22. 98 poke251,0:poke252,64
  23. 99 poke253,0:poke254,0:print"[147]";:sysunpack:syshgr
  24. 100 ag=3.34
  25. 110 fordl=1to1500:ifpeek(198)=0thennextdl:goto120
  26. 112 geta$:ifa$="q"ora$="[209]"thensyshgr:gosub10000:syshgr
  27. 120 syshgr:print"[147]":poke198,0:next x
  28. 130 goto70
  29. 140 :
  30. 10000 :
  31. 10005 poke53281,1:poke53280,5
  32. 10010 print"[147][144]  [193]re you sure you want to quit [[217]/[206]]?"
  33. 10020 poke198,0:wait198,1:getag$
  34. 10030 ifag$="y"orag$="[217]"then30000
  35. 10040 return
  36. 30000 :
  37. 30010 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  38. 30020 ifer<>63thenprint"[147]":end
  39. 30030 load"hello connect",8
  40. 50000 :                     
  41. 50010 data "[204]incoln [205]emorial at [206]ight","[202]ames [196]. [211]achs",memorial.shp
  42. 50012 data "[208]ola [206]egri","[215]ayne [211]chmidt",pola.shp
  43. 50014 data "[210]eflect","[199]len [205]. [199]edgepeth",reflect.shp
  44. 50016 data "[212]he [203]night","[203]em [205]c[206]air",knight.shp
  45. 50018 data "[211]unrise","[205]ike [208]ike",sunrise.shp
  46. 50020 data "[198]antasy [211]helf","[215]. [197]. [205]eyers",fantasy.shp
  47. 50022 data "[207]utpost","[215]illiam [196]. [194]aum",outpost.shp
  48. 50024 data "[212]ab [216][207]","[199]ene [210]eimann",tabxo.shp
  49. 50026 data "[211]tained [199]lass","[202]ohn [196]. [210]usso",stainedglass.shp
  50. 50030 data "[206]ight [204]ight","[212]homas [203]ane",nitelite.shp
  51. 50032 data "[205]oonshine","[197]ddie [202]ohnson",moonshine.shp
  52. 50034 data "[205]ountain [204]ake","[203]aren [197]. [196]onelson",mtn.lake.shp
  53. 50036 data "[200]er [197]yes [193]re [194]lue","[204]aoura [211]hanahan",no.2.shp
  54. 50038 data "[211]cene","[196]aniel [214]. [205]orris",scene.shp
  55. 50040 data "[210]eflect","[194]ill [204]uttrell",reflect2.shp
  56. 50044 data "[194]arn #1","[215]alt [200]arned",barn.shp
  57. 50048 data "[195]lock","[208]eter [196]eal",clock.shp
  58. 50050 data "[213]neven [207]dds","[196]iana [208]eterson",unevenodds.shp
  59. 50052 data "[202]oan [202]ett","[195]had [194]aker",joan.shp
  60. 50060 :
  61. 50065 print"[147]":poke53281,1:poke53280,1
  62. 50072 print"         [176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]"
  63. 50082 print"         {$7d}Loadstar Presents{$7d}[144] "
  64. 50092 print"         [173]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189][144] "
  65. 50102 print"                             "
  66. 50112 print
  67. 50122 print"  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  68. 50132 print"  [221]        [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]          [221][144] "
  69. 50142 print"  [221]        [221][199]rafix  [199]alore[221][154]          [221][144] "
  70. 50152 print"  [221]        [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][154]          [221][144] "
  71. 50162 print"  [221]         [154]                         [221][144] "
  72. 50172 print"  [221]                                  [221][144][160]"
  73. 50182 print"  [221]   [211]lide [211]how [208]resenter written   [221][144][160]"
  74. 50192 print"  [221]         by [193]lan [199]ardner          [221][144][160]"
  75. 50202 print"  [221]            (c) 1987              [221][144][160]"
  76. 50204 print"  [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][144][160]"
  77. 50212 print"                                       "
  78. 50222 print
  79. 50232 print"     [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  80. 50242 print"     [221][193]ll pictures appeared in the[221][144] "
  81. 50252 print"     [221][202]uly 1986 issue of [195]ommodore[221][144] "
  82. 50262 print"     [221]     [208]ower[208]lay [205]agazine     [221][144] "
  83. 50272 print"     [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][144] "
  84. 50282 print"                                    "
  85. 50292 :
  86. 50302 print"   [ Press any key to start the show[160]]";
  87. 50312 print"";
  88. 50314 poke198,0:wait198,1:poke198,0
  89. 50316 poke53281,5:return
  90. 59990 :
  91. 60000 poke53281,1:poke53280,5
  92. 60005 print"[147][146]    [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  93. 60010 print"    {$7d}Loadstar is proud to present:{$7d}[144] "
  94. 60020 print"    [173]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189][144] "
  95. 60030 print"                                    "
  96. 60040 print
  97. 60050 print"  [176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]"
  98. 60060 print"  {$7d}                                 {$7d}[144] "
  99. 60070 print"  {$7d}  [154][176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]   {$7d}[144] "
  100. 60080 print"  {$7d}  [154]{$7d}                          {$7d}   {$7d}[144] "
  101. 60090 print"  {$7d}  [154]{$7d}        created by        {$7d}   {$7d}[144] [146][160]"
  102. 60100 print"  {$7d}  [154]{$7d}                          {$7d}   {$7d}[144] [146] [160]";
  103. 60110 print"  {$7d}  [154][173]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189]   {$7d}[144] "
  104. 60120 print"  {$7d}                                 {$7d}[144] "
  105. 60130 print"  {$7d}                                 {$7d}[144] "
  106. 60140 print"  {$7d}                                 {$7d}[144] "
  107. 60150 print"  {$7d}  [154][176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]   {$7d}[144] [146][160]"
  108. 60160 print"  {$7d}  [154]{$7d} Coming soon to a computer{$7d}   {$7d}[144] [146][160]"
  109. 60170 print"  {$7d}  [154]{$7d}        near you.         {$7d}   {$7d}[144] [146][160]"
  110. 60180 print"  {$7d}  [154][173]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189]   {$7d}[144] [146][160]"
  111. 60190 print"  {$7d}                                 {$7d}[144] [146][160]"
  112. 60200 print"  {$7d}                                 {$7d}[144] "
  113. 60210 print"  [173]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189][144] "
  114. 60220 print"                                      "
  115. 60230 print
  116. 60240 print"         [ Press 'Q' to exit ]";
  117. 60250 print"";
  118. 60260 return
  119.